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ABSTRACT 


The  Algebraic  Compiler  and  Translator  I  System  for 
the  LGP-30  digital  computer  has  been  modified  and  expanded 
for  greater  versatility.  A  location  symbols  table  is  gener¬ 
ated  at  a  new  location,  providing  space  for  one  of  two  deci¬ 
mal  program  and  references  printout  routine.  A  63-symbol 
operations  table  includes  non-input  typew»'iter  operation 
symbols,  breakpoint  symbols,  a  compatible  !  •'x  or  alpha¬ 
numeric  output  symbol,  a  binarization  of  address  ..ymbol,  a 
flexible  program  input  symbol,  an  integer-trim  symbol,  and 
a  trace -one-intermediate-result  symbol.  Two  alternate 
subroutines,  located  in  unused  space  at  the  time  of  comput¬ 
ing,  utilize  program  input  routine. 


•  PROBLEM  STATUS 

This  is  an  interim  report  on  the  problem;  work  is 
continuing. 
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ENCORES  FOR  ACT  I  SYSTEM  FOR 
LGP-30  DIGITAL  COMPUTER  COMPILER 


INTRODUCTION 

Modifying  and  supplementing  subroutines  have  been  written  for  the  LGP-30  digital 
computer  compiler  system,  Act  I  (1,2).  Called  “Encores,”  the  subroutines  include  com¬ 
piler  modifications  which  cause  the  symbol  table  to  be  stored  and  punched  out  in  bOOO- 
6163  after  the  object  program.  This  modification  provides  space  for  either  “Cast  of 
Characters  with  References  on  Request"  or  “Understudies,"  special  decimal  printout 
routines,  to  be  stored  in  5800-5963.  Headings  for  each  of  these  subroutines  are  printed 
by  programs  in  3932-3963,  stored  following  an  expanded  operations  table.  The  additional 
subroutines  “outpt,"  “addr,"  and  “round*  fit  in  6240-6263  and  provide  compatible  hexa¬ 
decimal  or  alphanumeric  output,  binarization  of  addresses  at  a  q  of  29,  and  rounding  off 
the  fractional  portion  of  numbers  at  a  q  of  29,  respectively. 


PURPOSE 

One  reason  for  expanding  the  already  well-integrated  Act  I  system  was  to  help  over¬ 
come  semantics  barriers  in  order  that  both  programmers  and  scientists  unfamiliar  with 
computer  terminology  would  be  able  to  communicate  with  each  other  and  with  the  com¬ 
puter  without  translation  of  terms  outside  the  computer.  The  desire  for  this  close  rela¬ 
tionship  developed  when  an  analog  computer  data  display  and  tape  punch  system  was 
designed  by  the  author  for  use  in  field  experiments  conducted  by  the  Ocean  Sound  Propa¬ 
gation  Section.  Of  course,  data  analysis  is  only  one  application  of  Act  I  and  Encores. 

The  function  of  Cast  of  Characters  is  to  print  out  the  object  program  in  decimal,  with 
optional  inclusion  of  symbols,  constants,  and  operations.  The  purpose  of  Understudies  is 
to  punch  out  the  object  program  in  compatible  decimal  i.'stead  of  hexadecimal  in  order 
that  it  may  be  moved,  for  instance,  to  allow  the  first  eight  tracks  to  be  protected  in  instal¬ 
lations  having  record- inhibit  switches.  The  operations  table  was  expanded  to  provide  non¬ 
input  ty'pewriter  output  controls,  breakpoint  instructions,  optional  trace  of  selected  locations, 
a  variety  of  meanings  for  program  input  code,  and  the  three  additional  subroutine  sym¬ 
bols  “outpt,”  “addr,”  and  "round.” 

The  Ocean  Sound  Propagation  Section  has  used  a  system  in  the  past  which  includes  a 
convenient  alphanumeric  output  subroutine.  Following  the  policy  of  improving  communi¬ 
cations  among  users,  the  author  added  a  form  of  Herring’s  program  (3). 

The  compatible  hexadecimal  “outpt*  routine  is  intended  to  provide  more  rapid  access 
to  punched  tape  peripheral  storage,  i.e,,  to  add  a  link  via  input  and  output  devices  without 
changing  existing  subroutines  in  order  to  render  them  compatible.  The  use  of  Act  III  com¬ 
patible  output  subroutines  was  considered;  however,  necessary  rearrangement  of  the  sub¬ 
routine  packages  seemed  an  unwarranted  complication. 

The  “addr”  subroutine  causes  decimal  addresses  input  via  the  source  program  to  be 
binarized  under  control  of  the  object  program  and  program  input  routine  for  manipulation 
in  source  program  terminology. 
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The  "round*  operation  masks  off  the  30th  and  31st  bits  of  words.  It  might  find  use  in 
accurately  unpacking  fixed  point  numbers  by  dividing  by  a  power  of  10,  rounding,  then  mul¬ 
tiplying  them  by  the  same  power  of  10,  at  a  q  of  29. 

No  "z*  delays  are  employed  in  these  subroutines,  permitting  a  nonstopping,  high-speed 
punch  output  mode  of  operation.  Action,  however,  is  slow  enough  for  the  typewriter  output 
mode  to  be  equally  satisfactory. 


ALTERATIONS  TO  THE  COMPILER 

In  order  that  the  symbol  table  be  generated  at  6000  and  that  nothing  be  recorded  or 
erased  in  5800-5963,  the  following  alterations  to  the  compiler  are  necessary: 


Lo+0012 

xh6000 

Initialize  symbol  table 

0103 

0303 

u0104'l 

U0304J 

Bypass  adding  xz0200  to  symbol  Lo 

1038 

xz6000 

Symbol  table  Lo 

1452 

bl038 

Inclusion  in  punchout 

When  using  the  altered  compiler,  dimensions  are  counted  from  location  6000  instead 
of  5800.  For  this  reason  the  first  “dim*  statement  should  contain  a  number  128  greater 
than  with  the  standard  Act  I. 

In  order  that  depression  of  the  transfer  control  button  will  shift  control  to  headings 
and,  subsequently,  to  the  special  decimal  memory  printout  routines  rather  than  again  to 
the  compiler  immediately  following  compiling,  the  80xt4000  instruction  in  location  5444  is 
changed  to  80xt3932. 


THE  OPERATIONS  TABLE 

The  symbol  table  for  Act  I  and  Encores  appears  in  Fig.  1.  The  resulting  operations 
table  compiled  by  Prelude  to  Act  I  and  punched  by  Act  I  appears  in  Fig.  2. 

No  distinction  was  made  between  floating  point  and  fixed  point  calling  sequences  for 
logarithm  subroutines  in  order  to  provide  more  space  in  tracks  36  and  37.  The  left  oper¬ 
and  should  be  a  number;  but  if  floating  log-ln  subroutine  is  employed,  the  number  is  not 
used. 

A  statement  number  in  the  source  program  should  follow  “-pir.*  When  unprotected 
program  input  routine  10.4  or  10.4L  is  in  memory,  the  object  program  stores  the  loca¬ 
tion  of  that  statement  in  the  address  of  the  “t”  instruction  in  0007.  Going  to  program 
input  routine  and  inputting  “-*  and  seven  characters  will  transfer  control  to  the  state¬ 
ment  with  the  seven  characters  in  the  accumulator. 

“Trace*  may  be  used  with  or  without  the  transfer  control  button  depressed  during 
compiling.  Its  intended  use  is  to  select  printout  of  intermediate  results  while  computing 
with  the  transfer  control  button  depressed. 


“CAST  OF  CHARACTERS  WITH  REFERENCES  ON  REQUEST* 

The  Cast  of  Characters  subroutine  is  located  in  5800-5963  and  is  under  control  fol¬ 
lowing  the  output  of  its  heading  program  in  3932-3963.  Block  diagrams  of  the  subroutine 
appear  in  Figs.  3  and  4. 
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After  the  compiler  prints  out  program  and  statement  locations  there  is  a  stop  in  5443. 

If  no  decimal  memory  printout  is  desired  at  this  point,  the  operator  may  transfer  to  another 
location,  or  he  may  turn  on  the  punch,  release  the  transfer  control  if  on,  and  start  to  punch 
the  object  program  at  0300,  the  symbol  table  at  6000,  and  the  constants  table  at  6200. 

If  a  decimal  object  program  printout  is  desired,  the  transfer  control  button  should  be 
depressed  and  the  computer  started.  The  output  still  is  to  the  typewriter,  and  all  break¬ 
point  switches  are  released.  Subsequently,  if  the  transfer  control  is  left  down,  only  the 
program  will  be  printed,  omitting  the  heading  and  references.  If  it  is  released,  the  head¬ 
ing  and  references  will  be  included  with  the  object  program  printout. 

An  example  of  the  printout  is  shown  in  Fig.  5,  followed  by  the  coding  of  Cast  of  Char¬ 
acters  in  Fig.  6.  The  program  in  3932-3963  employs  the  Cast  of  Characters  alphanumeric 
subroutine  to  type  out  supplementary  information,  repairs  the  alphanumeric  routine  exit, 
then  transfers  to  5800  to  initialize  decimal  printout  at  location  0300. 

When  the  Encores  compiler  is  in  memory,  a  program  input  routine  instruction 
will  transfer  to  5802  with  the  hex  address  in  the  accumulator.  This  address  will  be  the 
first  location  printed  in  decimal.  If  the  address  is  the  same  as  or  greater  than  the  last 
program  location,  only  one  printout  cycle  will  follow.  During  normal  Cast  of  Characters 
cycling,  the  last  location  and  instruction  “zOOOO"  will  be  omitted,  and  the  computer  will 
stop,  allowing  the  operator  to  choose  what  he  would  rather  do  next.  He  may  either  start 
the  punch,  use  the  program  in  memory,  or  alter  the  program  first. 

The  Cast  of  Characters  portion  of  the  subroutine  is  optimized.  The  delay  instruction 
following  the  carriage  return  is  not  necessary  unless  the  latter  instruction  is  a  tabulation 
into  a  long,  automatic  carriage  return,  or  a  stop  is  desired  before  punching.  When  the 
Reference  on  Request  portion  of  the  subroutine  is  not  to  be  used,  “xz3000*  is  not  needed 
as  a  constant  and  may  be  changed  to  “ulSOS;*  otherwise,  5832  may  be  changed  to  “xs6331,” 
Lf,  instead  of  3000.  All  temporary  storage  is  within  the  subroutine.  Therefore  printout  of 
track  63  contents  is  possible;  however,  an  attempt  to  print  out  contents  of  tracks  58  or  59 
damages  the  subroutine. 

The  transfer  control  may  be  depressed  at  any  time  to  abort  reference  printouts  if 
desired.  When  it  is  released,  an  instruction  having  an  address  of  6000-6163  is  interpreted 
as  one  referring  to  a  symbol.  Following  printout  of  the  location  and  instruction,  the  sym¬ 
bol  is  typed.  If  the  word  found  in  6000-6163  happens  to  contain  a  non-input  (e.g.,  “0800") 
or  jam  code  (e.g.,  “4800”),  that  character  is  bypassed,  preventing  uncontrolled  action, 
damage,  or  stoppage.  When  the  computer  encounters  an  instruction  having  an  address  of 
6200-6239,  the  word  in  that  location  is  typed  as  a  five-digit  decimal  constant  at  29.  Nega¬ 
tive  numbers  or  numbers  greater  than  99999  will  not  stop  the  computer  but  may  contain 
nondecimal  characters.  Instruction  addresses  3000-5963  are  first  treated  as  subroutine 
bridge  locations.  If  the  command  is  not  “u,”  as  it  normally  would  be  following  an  “r0310” 
instruction,  a  “u”  -  meaning  unidentified  -  is  typed.  If  the  command  is  "u,”  the  table  of 
transfer  addresses  at  q  of  30  in  track  37  is  searched.  If  the  address  is  not  found,  a  “u” 
is  printed.  When  it  is  found,  the  symbol  in  track  36  having  the  same  sector  is  typed  as 
the  operation  symbol.  For  examples,  the  following  instructions  would  cause  the  resulting 
typeouts; 


p3200  u 
z3200  u 
r0305 
u5000  u 
b6001  temp. 
r0310 
u4900  asin 
s6208  04963 


(stop  code,  not  “u”  instruction) 
(breakpoint,  not  “u”) 

(address  not  3000  or  more) 

(not  transfer  address) 

(symbol) 

(address  not  3000  or  more) 
(operation  symbol) 

(constant) 
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For  future  reference,  the  typewriter  punch  may  be  turned  on  before  transferring  to 
Cast  of  Characters,  thereby  including  the  decimal  interpretation  on  the  object  program  tape. 
Since  the  program  is  incapable  of  punching  a  conditional  stop  and  the  first  input  word  is 
an  eight-character  “v*  code,  the  printout  will  be  ignored  by  the  input  routines. 


“UNDERSTUDrES” 

An  optional  decimal  memory  printout  program  may  be  loaded  in  5800-5963  with  its 
headings  program  in  3932-3963.  Understudies  (Fig.  7)  is  similar  to  Cast  of  Characters 
in  that  it  prints  locations  and  instructions  in  decimal  and  includes  printout  of  symbols 
referred  to  by  the  object  program;  however,  here  the  similarity  ends. 

The  Understudies  subroutine  is  headed  by  loading  limits  and  instructions.  The  object 
program,  properly  modified,  can  be  moved  up  to  the  initial  region  location  designated  by 
“dim*  statements.  The  maximum  start  fill  instruction  therefore  is 

region  Li  -  [program  Lf  -  (program  Li  -  1)]. 

The  Understudies  subroutine  does  not  modify  any  addresses,  so  the  modifier  must  be  three 
tracks  smaller  than  the  start  fill  instruction.  If  subroutines  are  used  with  the  object  pro¬ 
gram,  all  return  addresses  must  be  changed  to  program  Lo  +  0010,  the  N  temporary  stor¬ 
age  addresses  must  be  changed  to  program  Lo  +  0012,  and  trace  subroutine  must  return  to 
Lo  +  0005.  Subroutines  may  be  altered  by  loading  a  tape  of  start  fill  plus  instruction  sets 
after  the  subroutines  to  be  used  are  loaded  and  /Lo  of  program  is  stored  by  program  input 
routine. 

The  Understudies  program  does  not  print  out  constants,  operations,  or  “u.*  Follow¬ 
ing  carriage  return  and  printout  of  location,  each  object  program  instruction  is  tested. 

If  the  command  bits  are  all  zero  (“Z”),  then  “,0000001'  *  and  the  word  in  hex  is  printed 
with  a  conditional  stop.  The  check  sum  printout  routine  of  the  compiler  is  employed  to 
output  1  at  2,  1  at  30,  breakpoint  delay,  and  stop  instructions,  since  all  happen  to  be  posi¬ 
tive  and  contain  “0*  bits  in  their  command  portions,  “p*  instructions  and  instructions 
having  addresses  greater  than  object  program  Lf  are  typed  with  (a)  leading  spaces  to  clear 
the  remainder  of  the  location  out  of  the  accumulator  on  reloading,  (b)  an  x  to  prevent  modi¬ 
fying,  and  (c)  conditional  stop.  An  instruction  having  an  address  6000-6163  is  followed  by 
‘the  symbol  in  that  address.  All  other  instructions  are  assumed  to  be  modified  and  are 
preceded  by  spaces  and  no  “x."  After  typing  the  final  instruction,  “xzOOOO,”  control  is 
immediately  transferred  to  the  compiler,  which  punches  the  symbol  table  and  constants 
table  on  the  typewriter  in  hexadecimal,  each  with  a  check  sum. 

The  object  program  is  unchanged  in  memory,  so  it  may  be  used  immediately  or,  if 
desired,  punched  out  in  hex  at  0300  by  transferring  to  location  5445.  Understudies  uses 
the  address  printout  routine  in  the  compiler  to  type  locations  and  one  space,  but  uses  its 
own  address  printout  routine  to  type  addresses  and  conditional  stop.  Hence,  interrupting 
the  program  cannot  alter  Act  I. 

If  the  object  program  is  to  be  moved  in  order  that  it  can  be  used  with  protected  pro¬ 
gram  input  routine,  itshouldbe  remembered  that  “outpt,*  “addr,*  and  “-code*  operations 
then  will  not  work.  The  first  requires  subroutines  which  use  constants  in  unprotected 
program  input  routine;  the  second  must  “r-u*  to  program  input  routine  binarization  sub¬ 
routine;  and  the  third  must  alter  an  inhibited  instruction  in  order  to  function. 


“OUTPT* -“ADDR* -“ROUND*  SUBROUTINE  PACKAGES 

Since  the  compiler  directly  stores  symbols  of  up  to  five  characters  at  a  q  of  30  by 
n-multiplying  the  six-bit  input  word,  it  is  convenient  to  store  alphanumeric  symbols  using 


NAVAL  RESEARCH  LABORATORY 


5 


the  source  program.  Furthermore,  non-input  typewriter  codes  and  delays  may  be  assem¬ 
bled  by  the  compiler  if  appropriate  symbols  appear  in  the  operations  table.  The  author 
reviewed  a  POOL*  program  by  Mr.  Herring  for  alphanumeric  output  and  condensed  it  for 
this  subroutine  package. 

Symbol  “outpt"  tor  alphanumeric  words  differs  from  the  alphanumeric  output  in  the 
Cast  of  Characters  subroutine  by  omitting  protection  against  non-input  codes  (Fig.  8). 
Starting  at  the  left,  six  bits  at  a  time  are  shifted  into  the  track  portion  of  a  p(  )  instruction. 
pOOOO  instructions  are  bypassed,  being  interpreted  as  missing  character  codes  of  stored 
symbols  having  less  than  five  characters.  An  example  of  source  program  and  result  is: 

outpt 'temp.'  ' 

2' print' temp'  '  temp.  662.15  F 

ucase'outpt'  F' lease'  cr'  ' 

If  an  alphanumeric  symbol  is  not  to  be  replaced  by  a  number  in  memory  before 
reloading  the  object  program,  it  should  not  be  identical  to  the  symbol  used  to  represent 
the  number  storage  location  in  6000-6163.  A  period  or  space,  for  instance,  might  dif-  . 
ferentiate  one  from  the  other. 

The  “addr"  and  “round"  subroutines  help  delay  the  exit  from  either  “outpt"  subroutine 
so  that  either  high-speed  punch  or  typewriter  output  can  be  used.  The  “addr”  subroutine 
is  simply  a  transfer  to  the  binarizing  section  of  10.4  or  10.4L  program  input  routine  and 
return.  Constants  and  fixed  point  numbers  in  the  object  program  are  at  a  q  of  29,  whereas 
program  input  routine  codes  are  at  a  q  of  31.  Therefore  transfer  is  made  from  the  “addr” 
subroutine  location  to  a  point  beyond  the  order  to  n-multiply  by  1  at  29.  The  “round*  sub¬ 
routine  contains  one  extract  instruction  to  mask  off  bits  30  and  31.  Since  its  transfer 
address  is  listed  in  the  operations  table.  Cast  of  Characters  can  include  printout  of  the 
operation  as  it  can  with  “addr”  and  “outpt*  operations. 

The  “addr”  and  “round*  subroutines  follow  the  “outpt*  subroutine  at  the  same  transfer 
addresses  when  combined  with  the  compatible  hex  “outpt*  subroutine  (Fig.  9).  Four  bits  at 
a  time  are  shifted  into  a  p(  )  instruction,  the  hex  character  identification  bit  is  added,  and 
eight  characters  —  forcing  previous  contents  out  of  the  accumulator  -  and  a  conditional 
stop  are  printed. 


PACKAGING 

Act  I  and  Encores  have  been  packaged  along  with  debugging  programs,  bootstrap  with 
check  sum,  and  supplementary  programs  to  form  the  following  twelve-tape  library  in  the 
possession  of  the  writer: 

I  Prelude,  Operations  Table,  Compiler,  Cast  of  Characters 

II  Bootstrap  II  with  L,  Program  Input  Routine  10.4L,  Index  Instructions 

and  Constants,  “-*  code  to  Cast  of  Characters 
in  Symbol  Table 

IV  Alphanumeric/Hexadecimal  Subroutines,  Bootstrap  I 

V  Loader  and  Linkages,  Trace-Float-Unfloat,  Floating  Decimal, 

Fixed  Point  Input-Output  Subroutines 

VI  Floating  Point  Subroutines 

vn  Fixed  Point  Subroutines 

Vin  Program  Input  Routine  24.2 

K  Decimal  Memory  Printout  and  Hex  Punch 

X  U.  of  Mich.  Trace 

XI  React 

Xn  Understudies 


An  LGP-30  user’s  organization. 
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React  is  a  one-track  assembly  (Fig.  10)  for  use  without  the  compiler  to  help  write  effi 
cient  programs  employing  Act  I  subroutines. 


SUMMARY 

Changes  have  been  made  to  improve  readability  and  increase  the  versatility  of  Act  I. 
No  difficulties  have  been  encountered  other  than  remembering  to  increase  the  first  "dim* 
statement  number  by  128  and  to  refrain  from  using  subroutines  requiring  10.4  or  10.4L 
PIR  when  protected  PIR  is  used. 
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i  'O'blo'hro'hlo' ' 

+'l'blo'tro'hlo’ ' 

-  'I'blo'aro'hlo" 
x'2'blo'nro‘mc*'0507'hlo' ' 
/'2'bc«'0308'dro'mlo'hlo' ' 
when’O' ' 

les«  '3'blo'«ro" 
grt'3'bro'»lo'* 

equal  '3'blo'aro'tJe'5’ae«'5ll*' ' 
tm'O'tro' ' 

aba'3'bro'tja'2'uja'3'cea'306’aca'306'hlo' ' 
read  rca '  0310  'uta '  5000  'hro ' ' 
print '  3  'bio '  hca'  0312  "bro '  rc*  •  0310  ’  uta '  5800 ' ' 
atop'O'ica'O’ ’ 

Iter'aub' 

f+'l'blo'hca'0312'bro'rca'0510'uta'5200'hlo" 

f-  '1 'bio 'hca '0312 'bro'rca'0510'uta’  5300'hlo" 

fx'2'blo'hca'0312'bro'rca'0310'ula'5lt00'hlo" 

f/'2'blo'hca'0512'bro'rca'0310'utB'5328'hlo" 

f Inp ' 3 '  rea ' 0310 'uta *  5502 'hro " 

fprt’5'bro'rca'0310'uta'5700' ' 

flo'5'blo'hca'0512'bro'rca'0510'uta'5157'hlo" 

unf  lo '  3 '  b  lo '  hca '  0312 '  bro '  rc  a '  0310 '  uta '  5100 '  hlo ' 

cr'3'pea'l6o0'zea'0000" 

tab '  3 'pca'2l»00'xca'0000" 

ret  'O'rro" 

uae'O'uro' ' 

brlng'O'bro' ' 

add'O'aro" 

aubtr'O'aro' ' 

Bult '0 'nro' ' 
rault'O'nro' ' 
dlv'O'dro' ' 
extrt'O'ero' ' 
hold'O'hro' ' 
clear 'O'cro"  , 

atadd'O'yro' ' 

rdhex '  5 '  oca '  306  '  pea '0000 '  lea '  0000 '  hro” 
aln'3'bro'roa'0310’uta'U900'hlo' ' 
coa'3'bro'rca'0310'uta'U9l5 'hlo' ' 
atan'3'bro'rca'0310’uta'li959'hlo' ' 
aqrt '3'bro'rca'0310'uta'b920'hlo' ' 
aaln ' 3 ' bro ' rc a ' 0310 ' uta ' U9U5 • hlo ' ' 
acoa'3‘bro'roa'0310’uta'U950  hlo' ' 
eexp'3'bro'rca'0310'uta'U9^'hlo' ' 
10exp'3'bro'rca'0310'uta'U953'hlo' ' 

In '  3  'bio  'hca '  0312 'bro ' rca'0310 'uta '  1*951* ' hlo ' ' 

log'3  'blo'hca'0312'bro'rca’0310'uta'U958'hlo' ' 

outpt ' 3 'bro 'rca'0310 ’uta'62Uo' ' 

addr '3 'bro 'rca'0310 ’uta'6256 'hlo' ' 

ruund'3'brc'rca'0310'uta'6258'hlo' ' 

-plr'O'bro'yea'0007' ' 

trace ' 3 'bro ' roa '0305 'uca '  5000 ' ' 

ucose  '3'pca'0800'ica'0000' ' 

Icaae  '3'pca'OUOO'iCB'OOOO' ' 
color'3'pca'1200'xca'0000' ' 
bkap'3'pca'2000'ica'0000' ' 
edatp'3'pca'3200'zca'0000' ' 
bpU'3'zca'OUoo' ' 
bp8'3'ica'0800'' 
bpl6'3'zca'l600' ' 
bp52'3'zca'3200' ' 


Fig.  1  -  "Encores”  symbol  table 
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vouoeuoo' 

OOOlq '  00016  'OOOOq  'OOOUq  '00026  'Ol^ejaga '  005li«qwf  ’  5j6lrf ' 
Ugk53j8j'5f6ga'722wf'006j*jff'l»26f2Jlcf'01qK*lJ2’008Kg29f'7gUc'- 
01516  'OlSOq  ■  OlSUq  '01526  '01522J  J2  •015<*26lcf '  5l*5ii6 ' 52JkU5**6 ' 

01f9f '  5«j8f '  l«2kf '  53qjf '0f6f231(J  '72ff  f '7gl*eg^'00qk235f ' 
32ql<235f'2fQgq'lt*3kfa{f'Ol8j652f'6f3li«J9f'7g6i«fff'lffq32Jq'7feW 
6glwf'OUkgJg2'01qiilt6kf'01Jvf^'01Jqglwf '012Jg3J2’OJlll«3J2'00532' 
0iai(J'l»7Ukg0kf'01Jfff9f'l«lk2Jff'003J289f'5f6w3fJf '53fv5qJf'Okfw3qJf' 
6gl8ia9f '002qkqJ2'6fT«g6j2 'C«OfU 'OgOjI* '002J233'* '0O2J271I* 'wOOOOOOO ' 
2fq2l»J92'v03«2500' 

03200000 ' 07206000 ' 072OJ000  'C«312000 '  Og31fOOO '  OlvlfOOO '  OwlOJOOO '  0ul22000  ’ 
Ow326000 ' 0202q000 '  0q5 30000 '  0q25kk80 '  OwWt  5kOO ' 020l»  J 000 ' 00ekg29f '  7glt8f ' 
075ltwfOO'075‘‘wf30'0g3l»vgOO'Og5ltwfg8'0q25kg8U'0q2U7j8O'0w5lMi9Jf'Ow5Uu98O' 
0ql5f000 'Oql5qOOO '02062000 '02064000'02022000 'O20OeoOO'O2OOq'X)O '02066000 ' 
O2OIUOOO ' 0201J 000 ' 02068000 ' 02002000 ' 0206f000 '  O206JOOO '  Oq36qOOO '  Oq553890 ' 
Oq35389q'Oq35303q 'Oq5538f8'Oq3558kf 'Oq3538w6 'Oq3538gU 'Oq3558j2 'Ow5lMieq3 ' 
Ow5>«<6wI»  '0q2U7w50 ' 0q353w70  'Oq555w7<*  '021"6000 ' 0q27f000  'OqlBOOOO  'OqlSIiOOO ' 
Oql08OOO '  0ql8  JOOO '  0ql90000 ' 0q09<*000 ' 0q096000 ' 0q098000 ' 0q09f000 ' 33wf  fkSf  ’ 
vOUq26O0' 

10000 '  OlOJOOOO '  018JOOOO '  10000 '  OlOqOOOO '  OI8JOOOO '  10000 '  OlOuOOOO ' 

O18JOOOO ' 10000 '01060000 '01q7031j 'OlSjOOOO ' 01ql0320 '01050000 '70000 ' 
OI8JOOOO  '01010000  'wOOOO'  lOOOO'OlOwOOOO'OlJgOOOJ  '01qw0358  'OlOgOOOO ' 
01010000 'Oljgoooe 'oijroooj '01qk03l8 '01q«05l8 'Ol8jOOOO '01q30528 'SOOfOOOO' 
OlOJOOOO '  10000 '01qJ0330  '01010000  '01q30526 '800f0000 '  OlqOOOOO '  10000 ' 
01qJ0350 '01010000 '01q»328  'SoOfOOOO  'OI8JOOOO  'OlqSlOOO  'OlqOOOOO  '01q8l800 ' 
OlqOOOOO '  01030000 '  OlOfOOOO '  OIOTOOOO ' 01090000 '  OlOkOOOO ' 01020000 ' 01qk05l8 ' 
OlqSOOOO '  OlqUoOOO '  OlOJOOOO  '01010000 '01q200U '  01010000 '01q503ll‘ '  Olqf 5200 ' 
01q80800 '  OlqOOOOO  'OlqSOUOO  'OlqpOOOO'OlqSOJOO  'OlqOOOOO'OlqSlUOO'OlqOOOOO ' 
OlqSCOOn '  OlqOOOOO 'OlqOOUOO 'OlqOOQOO 'OlqOlOOO '  01q02000 '285  jcriq6 ' 


Fig.  Z  -  "Encores"  operation  table 
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(PAGE  10  blank) 


"CAST  OF  CHARACTERS  WITH 
REFERENCES  ON  REQUEST" 


ACT  I  ENCORES 
5800-5963 


IS  TC.  DOWN  ? 


60  TO  PUNCHOUT;  INCLUDE  SYMBOLS  AT  6000 


YES 

HDG,  B0407(LOo-I1 

j  INCR.  LOC.  AND  CR. 

SET  UP  B  (INSTR  )  ' 

PIR:-000XXXX  LOqXXXXIHEX)  IN  ACCUM 


zz 


B  (INSTRUCTION) 


STOP  TO  TURN  ON  PUNCH  OR  TRANSF.  TO  PROG. 


'YES 

^,3  TH,s  J, ,  riv;r} 


STORE  ADDRESS 


PRINT  LOC..AND  SPACE 


SET  UP  B(WORO) 


PRINT  COMMAND 


SET  UP  COMMAND  PRINT 


PR  ADDR.  AND  SR 


STORE  WORD 


YES  , 


~1  YES 

“no  ^ - 


C.  DOWN  OR  IS  ADDRESS  <3000  ? 


3 


IS  ADOR.  30(X)-5963 


NO 


IS  ADOR.  6000-6163  ?  I 


\YES 


PRINT  SYMBOL 
CSKIP  CHARACTER 
IF  T.  C.  DOWN  OR 
NON  -  INPUT  CODEI] 


(i 


NO 


S  ADDR.  6200-6239 


'NYES 


NO 


IS  COMMAND 


NO 


"U"  ?  ^ 


YES 


PRINT  "U" 


NO' 


PRINT  5-0I6IT 
CONSTANT.  COOOOO 
IF  NUMBER  IS 
NEC.  IF  » 99999, 
DELAY  AND  1ST 
DIGIT  MAY  BE  HEX. 
TC.  TO  ABORT. 


% 


IS  REF.  AN  OR  (LO.  37  XX  )  ?  C T.C.  TO  ABORTj^ 


YES 


SET.  UP  B36XX  (OPERATION  SYMBOL) 


ALTER  COMPILER: 

INIT.  SYMBOL  TABLE 
LO  +  0012  XH6000 
SYMBOL  LO  •  TEMP  LO 
0103  UOlOA 
0303  U0304 
LOC.  OF  SYMB.  TABLE 

1038  X  zeooo 

INCL.  IN  PUNCHOUT 
1452  B  1038 
T.  C.  TO.  HEADING 
1444  80XT3932 

COMPILER  LOCATION 
NORMALLY  4000 


ALAN  H.  RICH 
CODE  5511 
OCEAN  SOUND 
PROPAGATION 


Fig.  3  -  “Cast  of  Characters"  block  diagram 


YES 


YES 


LEfT  QPNECr^ 
YES  I  _  _ 

»  U  TO  J 


DOES  ssxxtiHAVE  Wes 

HIGHER  BRKT.  / 


DOES  SSXX'fl  HAVE) 

A  PREC.  3  OR  ?  /rts  I 


_^IS  (I  RREC.  2  ?  >n* 

- 


NO 


*^IS  LErVoR  REED^  (‘*J 

[Sjj  ^ 


this  a  2-  WO 
CALLIMC  seo 


YESt 


DOES  3SXX- 
.HIOMER  WIKT.I 


STon 


PRECIDENT>3  I 

^  . 

^(iS  LEFT  OR  Ne7o  ?)' 
YES  ^ 


NO 


I  DOES  33XXt2  HAVE 

V  A  lower  SRKT.  ay  ? 


STORE  AS  LEFT  OR 


NO 


DOES  35XX*2  HAVE  \yESJ. 
^  0  OR  I  >»REC.  ? 

noT— 

FIND  HIGHEST  6300 1 
AOOR.ON  TR.34 
WITH  BRKT.  A* 

STOP  ON  0  OR  I  PR  I 


- 

+I®29-^ACC^ 

R,  u  TO  (^py^  ~| 


L^C(3SXX»I)-»ACC  ^ 


3 


YES 


.^1 

R.U  TO  (ii)'' 

_ ^ 

1  STOA£  AS  PT  OP 

LOCATE  1ST  INST 

OF  8RI0GE  SET 

OF  inst's  CTC 

bCeic  syi^-»£, 

£,  *1 — ►£, 


.XROSIO— 
uOST  A005-»E»I,  ^ 
E,  *2  »Ei 


IS  THIS  A  2-WD  P\  YES 

f  call  sequence  ?'  I  I 

" --^0  - 1  -J 

PRESET  NEXT 
AOOR  TO  5S03 


I  RICK  UP  NEXT  AD- 
\ORCSS  IS  IT  NEC 

NO 


.  DOES  3SXX' 

,  UWER  MX 


-2  HAVE  V!? 


'  DOES  3SXX-I  HAVE 

^A  higher  bkt. no? 

NO, 


y  /  DOES  35XX-2  HAVE  \ 
^VA  PREC,  Of  OOR  I  ?/ 

YESj 

|C(S5XX-I|— »ACC.  H 


RET. 


(DOES  3SXX-2  HAVJ[ 

\A  lower  BRKT.NO  r 


NO 


to3SXX-l|  IS  LEFT  OP 


RET  TO  XP2 


FIND  HIGHEST  €300 
ADDON  TR.34 
STOP  ON  0  OP  I  PR 


STORE  IN  E. 

— I — y- 


YES 


‘-•{is  left  op  need?), 


E,  ♦! — »E,  a 
INCR  LOG  OF 
NEXT  ADO  BY  I 

-r 

/ 


FIND  HIGHEST  $300| 
ADO  ON  TR  34 
STORE  AS  LEFT  OP 

RET  TO  a  *2 


LOCAT 

C(S41 

RET.  • 


PR  CODE 

)  OPTION- -OOOXXXX  I 
]  HEX  L(V  AS  (' 

''  ADDRESS  J 


YES 


iNC^  AOOR.  Of 
BRIDGE  INST  SET 
1ST  Time  FLAG"-" 

- \  I 


ADD  transfer 
'  AOOR. (IN  COOE  f— 1 
WORO)  TO  BR  INST 


NO 


OECR.^OF 

INSTRS.CTR 


INCR  E, 
BY  I 


[  IS  LAST  COOCO  INST 

\A  hold  in  Ta6}? 

|NC 

_ 

1  CLIM.  last  INST  | 

J6B 

/ 

L_j 

r 

COOE  XZOOOOAS 
last  TA  INST 


initialize  for 

LOOP  OF 

STATEMENT  SEARCH 


URRlAGE  RET. 
AND  STOP 


rSTART" 


PRINT  STATE 
NO*S  a  THEIR 
INIT.  locations 


ADO  El  TO  The 
BRIDGE  INST 

yes' _ 

DOES  IT  NEED 
THE  JUMP  OP  ’ 


STORE  INTERNED. 
RES  LOC  IN  34  XX 
AND  INCR.  BY  I 


4^ 


.STORE  IN  E. 


IS  transfer  \  NO 
lCOnt  button  on? 

J!Li 

XR03I5 — •£, 

xuCtracC^e,.! 

E,  .2  - ►£, 


r 


PICK  UP  AN  INST 
AND  TRIM 


NO/ 


NO  I 


[  DOES  COOED  PROG  )  NO 
^OVERLAP  REGIONS?/ 


YES  , 

^  ERROR  2~~| 


DOES  IT  NEED  A 
STATEMENT  ADD  ? 

YEsj 

IS  IT  A  TEST 
INSTRUCTION  ? 


NO 


YES 


r 


NO  I 


PRINT  INIT.  a  FINAL 
PROG  LOCATIONS 

I. 

1 

|tRM  with  XS6363  | 

1 

WAS.THAT  UST  INST  ?) - 

»5B00 

CAST  OF  CHAR 
T.C.  UP:  INCLUDE  I 
REF  :  OPERATION,  I 
CONSTANT  OP 
SYMBOL,  OP  V 


YES 


IS  THE  TRAN.  \ 
.CONT.  BUTTON  ON?] 


5443 

PUNCH  PROG  I 

IN  HEX  (WITH  L 

CHECK  SUM)  r 


PUNCH  SYMBOL 
TABLE  IN  HEX 
(WITH  CH  SUM) 


|EXTRACTORtBOXS»363f-i 


1  CXTRACT0R.XS6363  | 

1 

rur 

PICK  UP  LOC  THAT 
CONTAINS  LO  STATE  " 

MODIFY  AOOR 
FOR  NEXT  INST. 


STORE  INST  BACK 
INTO  PROGRAM 


PUNCH  CONST 
TABLE  IN  HEX 
(WITH  CH  SUM) 


•ENCORES  FOP 
ACT  Z  MOOIF. 


ADD  LO  STATEM'T 
I  TO  INSTRUCTION  B 
TRIM  WITH  EXTR. 


error  t 


^ct  I"  block  diagram 
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.oooUooo 

dlacoopSOO 

■ler 

readm 

revlb 

Jflobift 

tib 

fbrt  t  •qrt  [  f  +fb  1 1 

uaeal 


1  0328  f  0356 

«01  0382 
syUb  ^OOO*- 
eon*  6800f 
dmpo  V  nf 
if  tran  on 
0307  1  «t2 
031**  lat30 

0300  b0315 
0301  u0318 
0308  *0500 
0303  u0305 
030**  *0001 
0305  U0505 
0306  *0000 
0307  *0000 

0300  *0001 

0309  *0000 
0310  uoeiut 
0311  *0000 
0312  *0000 
0313  *0000 
031**  *0000 
0515  *0315 
0316  h0302 
0317  U0300 
0518  *050U 
0319  y0305 
0380  b0306 
0581  U0502 
0388  pl600 
0383  *0000 


032**  r0310 
0325  U5900  read 
0326  h6000  a 
0387  b6200  0000** 

0328  h0318 
0329  bfiOOO  a 
0330  *0310 
0331  U5137  flo 
0332  hfiOOl  fa 
0333  p2lt00 
033**  *0000 
0335  10310 
0336  U590O  read 
0337  h600S  b 

0338  b6201  00003 
0339  h0312 

03*tO  b6002  b 

03**1  *0310 
03**2  u5137  flo 
05**3  h6003  fb 

03****  p2*t00 

05**5  *0000 
03**<>  b6001  fa 
0347  h0312 
0340  b6003  fb 
0349  10310 

0350  u5200  f+ 

0351  *0310 

0552  u4920  eqrt 
0353  r0310 
0354  U5700  fprt 

0355  UO322 
VO390300' 

1053J  •f0343'00300'!'03l4'00004’r03l4'  '20000000' 

00004'  'f06g0"  ”00002 'q033J  ' 

JO  506 '  f0300 '  q0310 ' 20314 ' 103  lO '  10308 ' 8IOOO '  ’ 

50328 ' f 3g00 • J  5J00 '15q00' J0550 '13J00 ' 50388 ' f 5394 ' 

J  3J04 ' 81800 ' ' 30528 ’ f 3g00 ' J  5J08 ' 15q04 ' J033O ' 

15J08  •  30588  ’  f33'l4  ’  J5J0J  '8l800 ' '  13J04 '  J033O ' 

15J0J  '  30323 '  f 3400 ' 30523 ' 031 50 ' 50320 '  f 3900 '  f0558 ' 

' 21456690 'V0055JOO' 

00072'01572’0000f'01500'wvvwwwj  ' 0000201/6 'vC053qp0' 

OOOIO'OOOOJ  'wwiwwj  'OOOOOOU'vOl85qfO' 

Olf J6qj2  'wwvwwwj  'ql740q30  '70994 '  f0788  'f llC:  'a3700q30  'q2520q30 ' 

OOOOJ  'q3kg0q30' 12g4i*  '709v0  'O2veo  '631tJ0  ’  rif84 ' 15kW) ' 

oine '  11014  '26k7885 . '  86)t7885f '  2Gk7085f '  26k7605f '  q3q30 ' 03390 ' 

PfliUSfliO' 


Fig.  5  -  "Cast  of  Characters"  printout 
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Fig.  6  -  “Cast  of  Characters"  program 
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,000i*000 

0523  ,0000001'  00000000' 

dlincaQ[p600 

0324  r0310' 

slcr 

0^25  XU59O0* 

reada 

xh()000*a 

4no*ifa 

0:»27  xb':200' 

tab 

O32B  40312' 

reodb 

0329  xbOOOD'a 

3flob;fb 

0330  r0310' 

tab 

0331  XU5157' 

fprt  [  aqrt  [  f *f +.  fb  J  ] 

0332  xhhOOl'ra 

uaeal 

0333  xpl'MX)' 

,UU0(XX)1'  OOOOOOOC' 

i  03ii2  f  0^5t. 

03:53  10310' 

033/j  XU3V00* 

aOl  0322 

0j3'’  xhhOOa'b 

PUNCH  ON: 

033b  xb6201' 

;naxV:39  /O300 

less 

0339  40312' 

0500  b0}15' 

0340  xl/.002'b 

0301  u051ti' 

05'tl  r0310' 

0302  ,0000001' 

00000300' 

0^42  X'i5137’ 

0303  UO305' 

0343  xh(j003'  rb 

0304  ,0000001' 

00000004' 

03't4  xp2'i00' 

o3or'  UU305' 

0343  ,0000001'  OOOOOOOC' 

030<)  ,0000001' 

OOOOOOOC' 

034'  xboOOl'ra 

0307  ,0000001’ 

20000000' 

054 f  40312' 

0306  ,0000001' 

00000004' 

03111)  xb',0C3'fb 

0309  ,0000001' 

OCOOCOOf/ 

oyi9  r031'-'' 

0310  XU0644' 

0350  XU3200' 

0311  ,0000001' 

00000000' 

0331  r0310' 

0312  ,0000001' 

00000000' 

0352  xu4920' 

0313  ,0000001' 

00000000' 

0353  r0310' 

0314  ,0000001' 

00000002' 

0354  XU3700' 

0315  «0315' 

0355  110322’, 0000001"v0053j00' 

0314  h0302' 

00072 ' 01572  ’  OOOOf '  0150f '  wwwvwuwj '  OOOOOlve  ’  v0035q00 ' 

0317  UO3OO' 

00010 '  OOOOJ '  wwwwwwj  ’  OCOOOOU '  vOl63qfO ' 

0316  a0304' 

Olf j6qJ2 '  wwwwwwj '  ql740q30 ' 70994 '  f0728 '  f  1168  ’  q5700q30 '  q2320q30 ' 

0319  y0305' 

OOOOJ '  q3ke0q,50'  ]2g44 ' 709w0 ' 02weo  ’  63kj8 '  f  lf84 ' 13kkO ' 

0320  6030'-' 

fine '  U8l4 ' 2'>k78e5  f '  26k7e65  f '  26k7W5f '  26k7865  f '  q3q30  ’  f  3390 ' 

0321  U0302' 

0322  xplOoo' 

2b: '1024',  • 

Fig,  7  -  “Understudies”  printout 
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;0006240' 

/ooobaoo' 

40 

xc030b'  vord  (OmPP) 

4l 

b0063'  -5  at  29 

42 

XCO312'  counter 

43 

xb03O6'  word 

44 

BOObl'  1  at  17 

45 

e0060’  xz6300 

46 

y0049'  p[  1 

47 

x«C029'  1  at  29 

46 

tOOSO*  no  character? 

49 

pzzzz*  alpha  character 

30 

xb03O6*  word 

51 

xn0135’  1  »t  25 

52 

XCO306'  word 

53 

)fb0312*  counter 

54 

xa0029‘  1  at  29 

55 

t0042'  5  cJzuractere  , 

50 

xr0063'  delay  (AEt») 

57 

xuOOSl*  binarize 

58 

e0062'  ROUND  at  29 

59 

XUO3IO*  exit 

60 

x*6300» 

,ooceoo3' 

6l 

4000* 

62 

vwvwwvwj' 

03 

vwwwwqj* 

;OOCX)135' 

xz00l6'  patch 

.OOOCXXXD' 

Fig,  8  -  Alphanumeric 
■‘outpt’  - “addr"- “ round" 
subroutine  package 


Fig.  9  -  Compatible  hex 
“outpt”-  "addr"-  “round" 
subroutine  package 


;va/06240‘ 

/OOailOO' 

40 

XCO306' 

word  (OUTPr) 

41 

b0063' 

-8  at  29 

42 

xe0312' 

counter 

43 

xb0306' 

word 

44 

xja0156’ 

1  at  16 

45 

u0060' 

xztOOO 

46 

a006l' 

XZ0200 

47 

yO04e' 

p(  ) 

48 

pzzzz' 

hex  character 

49 

xb0306' 

word 

50 

xn0135‘ 

1  at  27 

51 

XC0306' 

xb0312' 

word 

52 

counter 

53 

xa0029' 

1  at  29 

54 

t0042' 

6  characters? 

55 

XP3234’ 

conda  stop 

5b 

xrOOO^' 

delay  APEfi 

57 

XU0051' 

binarize 

58 

e0062' 

BOUND  at  29 

59 

XUO31O' 

exit 

tiO 

xz6O00* 

•'‘1 

XZ0200' 

,0000002' 

62 

wwwwwwwj’ 

vwwwwqO' 

63 

;0000135' 

.0000000' 

xz0004' 

patch 
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